home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / dina boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  719b  |  21 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147]"
  3. 15 poke214,8:print:printtab(7)"[129][196]  [201]  [206]  [193]      [205]  [193]  [212]  [200]"
  4. 20 printtab(8)"[158][198]or my great-niece, [194]eth"
  5. 30 gosub60000
  6. 35 print"[144]load"chr$(34)"dina math"chr$(34)",dv
  7. 40 [153]"run"
  8. 45 [151]64[172]256,0:[151]44,64:[151]16384,0
  9. 50 [151]631,13:[151]632,13:[151]198,2:[128]
  10. 60000 b9$[178]"                                      "
  11. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  12. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  13. 60030 b9$(0)[178]"str$ right$ (NULL) atn   (NULL) atn (NULL) left$  (NULL)1"
  14. 60040 b9$(1)[178]"by left$enry lenochran
  15. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  16. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #84"
  17. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  18. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  19. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  20. 60099 return
  21.